home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / misc / emu / fMSX.lha / fMSX_2.2 / ARexx / togglemode.fmsx < prev    next >
Text File  |  1999-06-06  |  423b  |  27 lines
  1. /*    This is an ARexx script for use with fMSX Amiga.
  2.  
  3.     $VER: togglemode.fmsx 2.2 (6.6.99)
  4.  
  5.     This script pauses fMSX if it is running or in music mode, and
  6.     runs it if is paused. Additionally it unlocks the drives when
  7.     paused so the Amiga can access the disks in them.
  8. */
  9.  
  10. options results
  11.  
  12. address FMSX.0
  13.  
  14. mode
  15.  
  16. say result
  17.  
  18. if result = "Pause" then do
  19.     mode run
  20.     lockdrives on
  21.     end
  22. else do
  23.     mode pause
  24.     lockdrives off
  25.     end
  26.  
  27.